home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / galactic.dcr / 00100.ls < prev    next >
Encoding:
Text File  |  1997-03-06  |  664 b   |  30 lines

  1. on check_level
  2.   global max_littleships, lil_shiplist, max_astroids, astroidlist
  3.   repeat with t = 23 to 22 + max_littleships
  4.     if the visible of sprite t = 1 then
  5.       return 
  6.     end if
  7.   end repeat
  8.   repeat with t = 12 to 11 + count(astroidlist)
  9.     if the visible of sprite t = 1 then
  10.       return 
  11.     end if
  12.   end repeat
  13.   new_level()
  14. end
  15.  
  16. on adjust
  17.   global statlist
  18.   repeat with n = 1 to 48
  19.     set the visible of sprite n to 1
  20.     puppetSprite(n, 0)
  21.   end repeat
  22.   go(getAt(statlist, 6))
  23.   repeat with n = 1 to 20
  24.     puppetSprite(n, 1)
  25.   end repeat
  26.   repeat with n = 12 to 16
  27.     set the width of sprite n to getAt(statlist, n - 11)
  28.   end repeat
  29. end
  30.